another windows build fix

diff --git a/Utility/Gpg.hs b/Utility/Gpg.hs
index c7f5fe76447751f8f947a80f94649484c6544aa7..5fe911528d3b5ecf4b5e0b52e78b13661060f1d5 100644 (file)
--- a/Utility/Gpg.hs
+++ b/Utility/Gpg.hs
@@ -182,7 +182,7 @@ feedRead cmd params passphrase feeder reader = do
        withTmpFile (toOsPath "gpg") $ \tmpfile h -> do
                liftIO $ B.hPutStr h passphrase
                liftIO $ hClose h
-               let passphrasefile = [Param "--passphrase-file", File (fromOsPath tmpfile)]
+               let passphrasefile = [Param "--passphrase-file", File (fromRawFilePath (fromOsPath tmpfile))]
                go $ passphrasefile ++ params
 #endif
   where